home *** CD-ROM | disk | FTP | other *** search
/ Amiga Collections: Franz PD / Franz PD Disk #030 (19xx)(Amiga User Group Deutschland e.V.).zip / Franz PD Disk #030 (19xx)(Amiga User Group Deutschland e.V.).adf / Sound A.B. V1.1 / Sound A.B. V1.1 (.txt) < prev    next >
AmigaBASIC Source Code  |  1988-12-10  |  4KB  |  195 lines
  1. Anfang:
  2. CLS
  3. PRINT 
  4. PRINT "           Sven Carlsen präsentiert: Sound A.B. V1.1"
  5. PRINT
  6. PRINT "                Exklusiv für FRANZ-PD!
  7. LOCATE 10,1
  8. PRINT " Die 2. Version von S.A.B. ist gegenüber der Vorversion erheblich"
  9. PRINT " verbessert worden.So besteht nun die Möglichkeit, mehrere Funktionen"
  10. PRINT " über die Menüleiste aufzurufen.Ich hoffe, daß diese Version Ihnen"
  11. PRINT " Gefällt.Dieses Programm ist Shareware! Ich bitte um eine kleine,"
  12. PRINT " von Ihnen wählbare, Gabe, wenn Ihnen dieses Programm nützlich er-"
  13. PRINT " scheint (2-3DM).Dafür bekommen Sie von mir Informationen zur Mus-"
  14. PRINT " ik Prgrammierung in Basic, und immer die neuste Version!"
  15. PRINT " Auf dieser Diskette befindet sich noch ein Infofile,zu diesem Programm!"
  16. PRINT
  17. PRINT " Tschüß,sagt der Ex-Flensburger Jung!"
  18. Menuleiste:
  19. MENU 1,0,1, "Info"
  20. MENU 1,1,1, "ÜbersProgramm"
  21. MENU 2,0,1, "Editieren"
  22. MENU 2,1,1, "Eingabe  "
  23. MENU 2,2,1, "Anhören  "
  24. MENU 2,3,1, "Demo     "
  25. MENU 3,0,1, "Project"
  26. MENU 3,1,1, "Quit  "
  27. MENU 3,2,1, "Save  "
  28. MENU 3,3,1, "Load  "
  29. MENU 3,4,1, "Frei  "
  30. MENU 4,0,1, "Sound A.B. V1.1!"
  31. Abfrage:
  32. v=MENU(0)
  33. w=MENU(1)
  34. IF v=1 AND w=1 THEN info
  35. IF v=2 AND w=1 THEN Eingabe
  36. IF v=2 AND w=2 THEN Hoeren
  37. IF v=2 AND w=3 THEN Demo
  38. IF v=3 AND w=1 THEN ende
  39. IF v=3 AND w=2 THEN Speichern
  40. IF v=3 AND w=3 THEN laden
  41. IF v=3 AND w=4 THEN Frei
  42. GOTO Abfrage
  43. Eingabe:
  44. CLS
  45. PRINT "--- Sound A.B. 1.1 ---"
  46. PRINT "--- Eingabe d. Ton ---"
  47. PRINT
  48. PRINT
  49. PRINT "Bitte geben Sie den Notenwert ein!"
  50. INPUT n
  51.  
  52. PRINT
  53. PRINT "Bitte geben Sie die Tondauer ein!"
  54. INPUT d
  55. PRINT 
  56. PRINT "Bitte geben Sie die Lautstärke ein!"
  57. INPUT l
  58. PRINT
  59. PRINT "Bitte geben Sie den Tonkanal ein (0-3)!"
  60. INPUT k
  61. PRINT
  62. CLS
  63. PRINT
  64. PRINT "Note 1: "n","d","l","k
  65. PRINT
  66. PRINT "Bitte geben Sie den Notenwert ein!"
  67. INPUT nx
  68.  
  69. PRINT 
  70. PRINT "Bitte geben Sie die Tondauer ein!"
  71. INPUT dx
  72. PRINT
  73. PRINT "Bitte geben Sie die Lautstärke ein!"
  74. INPUT lx
  75. PRINT
  76. PRINT "Bitte geben Sie den Tonkanal ein!"
  77. INPUT kx
  78. CLS
  79. PRINT
  80. PRINT "Note 1: "n","d","l","k
  81. PRINT "Note 2: "nx","dx","lx","kx
  82. PRINT
  83. PRINT "Bitte geben Sie den Notenwert ein!"
  84. INPUT nb
  85.  
  86. PRINT
  87. PRINT "Bitte geben Sie die Tondauer ein!"
  88. INPUT db
  89. PRINT 
  90. PRINT "Bitte geben Sie die Lautstärke ein!"
  91. INPUT lb
  92. PRINT
  93. PRINT "Bitte geben Sie den Tonkanal ein!"
  94. INPUT kb
  95. CLS
  96. PRINT
  97. PRINT "Note 1: "n","d","l","k
  98. PRINT "Note 2: "nx","dx","lx","kx
  99. PRINT "Note 3: "nb","db","lb","kb
  100. PRINT
  101. PRINT "Bitte geben Sie den Notenwert ein!"
  102. INPUT nz
  103.  
  104. PRINT
  105. PRINT "Bitte geben Sie die Tondauer ein!"
  106. INPUT dz
  107. PRINT 
  108. PRINT "Bitte geben Sie die Lautstärke ein!"
  109. INPUT lz
  110. PRINT
  111. PRINT "Bitte geben Sie den Tonkanal ein!"
  112. INPUT kz
  113. GOTO Anfang
  114. Hoeren:
  115. CLS
  116. PRINT "Das ist ihr Ton:"
  117. PRINT n,nx,nb
  118. SOUND WAIT
  119. SOUND n,d,l,k
  120. SOUND nx,dx,lx,kx
  121. SOUND nb,db,lb,kb
  122. SOUND nz,dz,lz,kz
  123. SOUND RESUME
  124. PRINT
  125. INPUT "Nochmals höhren";a$
  126. IF a$="J" OR a$="j" THEN Hoeren
  127. GOTO Anfang
  128.  
  129. Demo:
  130. n=1046.5:nx=1318.5:nb=1568
  131. d=13.56:dx=13.56:db=13.56:dz=13.56
  132. l=255:lx=255:lb=255:lz=255
  133. k=0:kx=1:kb=2:kz=3
  134. GOTO Hoeren
  135. ende:
  136. CLS
  137. LOCATE 15,1
  138. PRINT "Möchten Sie wirklich beenden?"
  139. COLOR 2
  140. INPUT E$
  141. COLOR 1
  142. IF E$="J" OR E$= "j" THEN SYSTEM
  143. IF E$="N" OR E$= "n" THEN Anfang
  144. GOTO ende
  145.  
  146. info:
  147. CLS
  148. LOCATE 12,1
  149. PRINT "           ------- Info -------"
  150. PRINT
  151. PRINT "      Geschrieben 1989 von Sven Carlsen"
  152. PRINT "      Programmart: SHAREWARE          "
  153. PRINT "      Betrag: frei wählbar von 2-3 DM"
  154. PRINT 
  155. PRINT "      Herkunft: Direkt vom Autor:"
  156. PRINT
  157. PRINT "       Sven Carlsen "
  158. PRINT "       Scharkoppel 5"
  159. PRINT "D-2314 Schönkirchen"
  160. PRINT 
  161. PRINT "  Tel.:0431/201015 "
  162. COLOR 0
  163. INPUT f$
  164. COLOR 1
  165. IF f$=" "THEN Anfang
  166.  
  167. laden:
  168. Speichern:
  169. Frei:
  170. CLS
  171. PRINT "noch nicht belegt,tschuldigung!"
  172. FOR x=1 TO 2000: NEXT x
  173. GOTO Anfang
  174.  
  175.  
  176.  
  177.  
  178.  
  179.  
  180.  
  181.  
  182.  
  183.  
  184.  
  185.  
  186.  
  187.  
  188.  
  189.  
  190.  
  191.  
  192.  
  193.  
  194.  
  195.